home *** CD-ROM | disk | FTP | other *** search
/ TeX 1995 July / TeX CD-ROM July 1995 (Disc 1)(Walnut Creek)(1995).ISO / dviware / quicspool / libqmsquery / qmsfntlex.l < prev    next >
Text File  |  1990-10-01  |  726b  |  44 lines
  1. /* $Header: qmsfntlex.l,v 1.1 88/01/15 12:19:00 simpson Rel $ */
  2. %{
  3. /*
  4. $Log:    qmsfntlex.l,v $
  5.  * Revision 1.1  88/01/15  12:19:00  simpson
  6.  * initial release
  7.  * 
  8.  * Revision 0.1  87/12/11  21:34:44  simpson
  9.  * beta test
  10.  * 
  11. */
  12. #undef input
  13. #define input()    (((yytchar=yysptr>yysbuf?U(*--yysptr):timedgetc(_Ifp)) \
  14.     ==10?(yylineno++, yytchar):yytchar)==EOF?0:yytchar)
  15. %}
  16. integer    [0-9]+
  17. %%
  18. FRO:        {
  19.             yylval = FRO;
  20.             return FRO;
  21.         }
  22. FDL:        {
  23.             yylval = FDL;
  24.             return FDL;
  25.         }
  26. {integer}    {
  27.             yylval = atoi(yytext);
  28.             return INTEGER;
  29.         }
  30. P |
  31. L |
  32. S |
  33. V |
  34. C        {
  35.             yylval = yytext[0];
  36.             return yytext[0];
  37.         }
  38. .        {
  39.             yylval = yytext[0];
  40.             return CHAR;
  41.         }
  42. NONE        return NONE;
  43. \r\n        return ENDLINE;
  44.